*** Do File for Supplemental Appendix PSRM Trust in Govt and Foreign Aid Support ***

********** Supplemental Appendix Models **********

clear
use "C:\Users\David Macdonald\Dropbox\Final PSRM Trust and Foreign Aid Support\Clean Cumulative ANES 1948 to 2020.dta"
*use "C:\Users\davidmacdonald\Dropbox\Final PSRM Trust and Foreign Aid Support\Clean Cumulative ANES 1948 to 2020.dta"

*** Appendix Table B1 ***
oprobit Spending_Foreign_Aid Scale4_Trust_Govt01 Ethnocentrism_FT_Whites01 ///
Age Female White Parents_Native_Born College Home_Ownership Married High_Income Daily_Newspaper ///
Partisanship01 Ideology01 Index_Egalitarianism01 Index_Traditionalism01 Isolationism Combo_Trust_People FT_Poor01 ///
National_Econ_Retro01 Personal_Econ_Retro01 i.Region i.Year if White==1, r
outreg2 using tab.tex, dec(3) sideway asterisk(se) replace 

*** Appendix Table B2 ***
oprobit Spending_Foreign_Aid Scale4_Trust_Govt01 Index_Authoritarianism01 ///
Age Female White Parents_Native_Born College Home_Ownership Married High_Income Daily_Newspaper ///
Partisanship01 Ideology01 Index_Egalitarianism01 Index_Traditionalism01 Isolationism Combo_Trust_People FT_Poor01 ///
National_Econ_Retro01 Personal_Econ_Retro01 i.Region i.Year, r
outreg2 using tab.tex, dec(3) sideway asterisk(se) replace 

*** Appendix Table B3 ***
oprobit Spending_Foreign_Aid Scale4_Trust_Govt01 FT_Muslims01 ///
Age Female White Parents_Native_Born College Home_Ownership Married High_Income Daily_Newspaper ///
Partisanship01 Ideology01 Index_Egalitarianism01 Index_Traditionalism01 Isolationism Combo_Trust_People FT_Poor01 ///
National_Econ_Retro01 Personal_Econ_Retro01 i.Region i.Year, r
outreg2 using tab.tex, dec(3) sideway asterisk(se) replace 

*** Appendix Table B4 ***
oprobit Spending_Foreign_Aid FT_FedGovt01 ///
Age Female White Parents_Native_Born College Home_Ownership Married High_Income Daily_Newspaper ///
Partisanship01 Ideology01 Index_Egalitarianism01 Index_Traditionalism01 Isolationism Combo_Trust_People FT_Poor01 ///
National_Econ_Retro01 Personal_Econ_Retro01 i.Region i.Year, r
outreg2 using tab.tex, dec(3) sideway asterisk(se) replace 

*** Appendix Table B5 ***
oprobit Spending_Foreign_Aid c.Scale4_Trust_Govt01##c.Index_Egalitarianism01 ///
Age Female White Parents_Native_Born College Home_Ownership Married High_Income Daily_Newspaper ///
Partisanship01 Ideology01 Index_Traditionalism01 Isolationism Combo_Trust_People FT_Poor01 ///
National_Econ_Retro01 Personal_Econ_Retro01 i.Region i.Year, r
outreg2 using tab.tex, dec(3) sideway asterisk(se) replace

margins, dydx(Scale4_Trust_Govt01) at(Index_Egalitarianism01=(0(.10)1)) predict(outcome(1))
marginsplot 

*** Appendix Table B6 ***
oprobit Spending_Foreign_Aid c.Scale4_Trust_Govt01##c.Index_Traditionalism01 ///
Age Female White Parents_Native_Born College Home_Ownership Married High_Income Daily_Newspaper ///
Partisanship01 Ideology01 Index_Egalitarianism01 Isolationism Combo_Trust_People FT_Poor01 ///
National_Econ_Retro01 Personal_Econ_Retro01 i.Region i.Year, r
outreg2 using tab.tex, dec(3) sideway asterisk(se) replace

margins, dydx(Scale4_Trust_Govt01) at(Index_Traditionalism01=(0(.10)1)) predict(outcome(1))
marginsplot 
